<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_directory_STRING
MM_directory_STRING ="Provider=SQLOLEDB;Password=big785;Data Source=VMSSQL03\I3;Database=DB_4085;User ID=vip2498"
%>
<%
if(Request.QueryString("id") <> "") then spRedirect__varID = Request.QueryString("id")
%>
<%
set spRedirect = Server.CreateObject("ADODB.Command")
spRedirect.ActiveConnection = MM_directory_STRING
spRedirect.CommandText = "UPDATE SMALLBANNERS SET B_CLICKED_TOTAL = B_CLICKED_TOTAL + 1, B_CLICKED_DATE = getDate() WHERE B_ID = " + Replace(spRedirect__varID, "'", "''") + " "
spRedirect.CommandType = 1
spRedirect.CommandTimeout = 0
spRedirect.Prepared = true
spRedirect.Execute()
%>
Redirect
<% Response.Redirect (Request.QueryString("url")) %>